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token age 



queue age 





if actor fires: 

for all actor output queues: 

queue age = queue age + iteration delay 



operation 



if operator is executed: 

output token age = max(input token ages) 

if token enters queue: 

token age = token age + travel delay 



CHECK EXPECTATION: 

token age at output of queue 
> queue age 

IF SUCCESS: 

queue age = token age 

IF FAIL: 

warn user 

token age = queue age 
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dfix T.sample(8. 6); 
df ix T.acc (8, 6) ; 
dfix T.bit (1, O, ns); 

double hardwired. coef = { 6.5/ 0.2,' -0.3, 0.15 }; 
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fsm correlator: :define(clk _ck) 
{ 



sig.array coef (4, cX t T.sample) ; 

sig.array sample (4, cJc, T.sample) ; 

sig accu (cJc, T.accu ); 

sig sam*ple.in (T.saraple ); 

sig coef. in (T.sample ); 

sig corr.out (T.sample ); 

sig load (ck, T.bit ); 

sig load.ctr (T.bit ); 



sfg initialize. coef s ; 
for Ci = 0; i < 4; i++) 

coef[i] - V(T.sample t hardwired.coef [i] ); 

sfg load.coef.O; 
input (coef .in) ; 
coef[0] = in.coef.in; 

sfg correl_l ; 

accu = cast(T.acc, coef[0] * sample[0] + coef[l] * sampled]); 
sfg corral. 2; 

corr - accu + cast(T.acc, coef [2] * sample C2] + coef [3] * sample[3] ); 
output (corr) ; 

sfg read. sample; 
input (sample. in) ; 
for (i =» 3; i >=0; i— ) 
if (i) 

sample [i] = sampleCi~i] ; 
else 

sample [i] = sample. in; 

sfg read. control ; 
input (load.ctr) ; 
load 3 load.ctr; 

fsm myfsra; 
initial rst; 
state phase. 1 ; 
state phase. 2; 

rst << always << init ialize.coef s << phasel; 

phasel << always << read. control 



<< correl.l 
phased << !cnd(load) << correl.2 ■ 

<< read. sample 
phase? << cnd(load) << correl.2 



<< phase2; 



<< phasel ; 



<< read. sample 
<< load.coaf.O 



<< phasel; 



return myfsm; 
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Sig Class 



class sig { 

Value value; 

char *name; 
public : 

sig (Value v) ; 

sig operator + (sig v) ; 

virtual Value simulate {) ; 

virtual void gen_code (ostream tos); 

}; 

sig sig: : operator + (sig v) { 
sigadd s; 
add. left = &v; 
add. right » this; 
return add; r 

> 

Value sig: : simulate ( ) { 
return value; 

> 

sig: : gen_code (ostream &os) { 
os < < name ; 

> 



Derived Operator Class 



class sigadd : public sig { 

sig *left; 

sig *right; 
public : 

Value simulate () ; 
void gen_ code (ostream &os) ; 

> ; 

Value sigadd: : simulate ( ) { 
return left->eval() + 
right->eval ( ) ; 

} 

sigadd :: gen_code (ostream tos) { 
os << lef t->cg( ) 
<< " + " 
<< right -> eg ( ) ; 

) 
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! eof /sf g3 



eof /sfg2 




_/sfgl 



fsm f; 
initial sO; 
state si; 

sO << allways 
si << cnd(eof) 
si << !cnd(eof) 



<< sfgl << si; 
<< sfg2 << si; 
<< sfg3 << sO; 
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